home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Atari Mega Archive 1
/
Atari Mega Archive - Volume 1.iso
/
telecomm
/
storm100.lzh
/
SORT.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-11-03
|
701b
|
25 lines
'Simple bubble sort to demonstrate string functions and data statements.
FAST ON :'Maximize speed
t = TIMER
DIM a$(19)
FOR i = 0 TO 19:READ a$(i):NEXT i
Start:sw = 0:p = p + 1
FOR i = 0 TO 18
IF a$(i) > a$(i + 1) THEN
b$ = a$(i):a$(i) = a$(i + 1):a$(i + 1) = b$:sw = 1
ENDIF
NEXT i
PRINT "Pass ";p:IF sw = 1 THEN Start
PRINT "Sort Done in "; TIMER - t;" seconds."
FOR i = 0 TO 19
PRINT a$(i)
NEXT i
FAST OFF
END
DATA "Electron","LA smog","diamond","pea","marble"
DATA "bowling ball","balloon","ball of string","747 tire","doughnut"
DATA "#3 ball bearing","Faberge egg","baseball","orange"
DATA "goodyear blimp","perisphere","rama","phobos","mars","earth"